home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 August / 64er_Magazin_86-08_1986_Markt__Technik_de_Side_A.d64 / listing 1.(1520) (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  301b  |  13 lines
  1. 5 rem -------- trans 0 (1520-plotter) -
  2. 10 data 0,0,15,0,15,9,7,5,13,0,9
  3. 20 dim x(6),y(6)
  4. 30 for i=1 to 5 : read x(i),y(i) : next
  5. 40 x(6)=x(1) : y(6)=y(1)
  6. 50 open 1,6,1 : open 2,6,2 : print#2,0 : close 2
  7. 60 print#1,"m",0,-200 : print#1,"i"
  8. 70 for i=1 to 5
  9. 80 print#1,"r",x(i),y(i) : print#1,"j",x(i+1),y(i+1)
  10. 90 next
  11. 100 print#1,"r",0,-200
  12. 110 close 1
  13.